;;=========================================
[@ֽ111]
{
#ACT
MOV  D0  0
MOV  D1  0
MOV  D3  1

#IF
checklevel 72
#SAY
ʱֻߵҿɰ㣬\
ɱǹ黹Ŷ㽫ʹôͺ\\
<ֻ/@ǮXXXX>\
<黹ֻ/@ǮXXXX>\

#ELSESAY
Բĵȼ̫ˣû취ָ\
Ҫﵽ72\

[@ǮXXXX]
#IF
check [088] 0
#SAY
ڿЦûǷһ\
ңҲ..¸..\
<[   ]/@exit>\\
<[͸NPC]/@songdoandx>\
#ACT
break

#IF
check [088] 1
check [081] 1
#SAY
ϴ36֡\
Ǻú\\
<黹ϴνĻ/@黹X(,36,81)>\
#ACT
break

#IF
check [088] 1
check [082] 1
#SAY
ϴ72֡\
Ʒ\\
<黹ϴνĻ/@黹X(,72,82)>\
#ACT
break

#IF
check [088] 1
check [083] 1
#SAY
ϴ5־\
黹־Ǹõ\\
<黹ϴνĻ־/@黹X(־,5,83)>\
#ACT
break

#IF
check [088] 1
check [084] 1
#SAY
ϴ288֡\
黹Ǹõ\\
<黹ϴνĻ/@黹X(,288,84)>\
#ACT
break

#IF
check [088] 1
check [085] 1
#SAY
ϴν10־\
黹־Ǹõ\\
<黹ϴνĻ־/@黹X(־,10,85)>\
#ACT
break

[@songdoandx]
#SAY
㲻ףΪɶء\
ˣһ\
һ־,Ȼҵҡ\
˵־\
Գɹ˿Ҫѽ\
ʧҲܹҹ..\

[@ǮXXXX]
#IF
check [088] 1
#SAY
ϴνĻֻûء裿ûţ\
ϴνĻֻͱôͺ\
#ACT
break

#IF
check [084] 0
check [085] 0
check [088] 0
checklevel 96
#SAY
˲ң㽫ʯ\
ҪŶ\\
ȼԽߣɽԽ࣬ڿԽ\
<288/@X(,288,84)>\
<10־/@X(־,10,85)>\
#ACT
break

#IF
check [083] 0
check [082] 0
check [088] 0
checklevel 84
#SAY
˲ң㽫ʯ\
ҪŶ\\
ȼԽߣɽԽ࣬ڿԽ\
<72/@X(,72,82)>\
<5־/@X(־,5,83)>\
#ACT
break

#IF
check [081] 0
check [088] 0
checklevel 72
#SAY
˲ң㽫ʯ\
ҪŶ\\
ȼԽߣɽԽ࣬ڿԽ\
ĿǰĵȼҿԽ36\
<36/@X(,36,81)>\
#ACT
break

[@X()]
#ACT
MOV A0 %ARG(1)	;;Ʒ
MOV D0 %ARG(2)	;;
MOV D1 %ARG(3)	;;ñ

#IF
Equal  D3  1  ;;ٵ
#SAY
Ѿ<$OUTPUT(D0)>֡ɱǹ黹Ŷ\
޷ʹʯ\
<[   ]/@exit>
#ACT
MOV D3  0
SET [088] 1
actcmd SETUSERJF + %D0 
goto @1

[@X()]
#ACT
MOV A0 %ARG(1)	;;Ʒ
MOV D0 %ARG(2)	;;
MOV D1 %ARG(3)	;;ñ

#IF
Equal  D3  1  ;;ٵ
#SAY
Ѿ<$OUTPUT(D0)>־ɱǹ黹Ŷ\
޷ʹʯ\
<[   ]/@exit>
#ACT
MOV D3  0
SET [088] 1
give ־ %D0
goto @1


[@1]
#IF
Equal  D1  81
#ACT
SET [081] 1
MOV D1  0
break

#IF
Equal  D1  82
#ACT
SET [082] 1
MOV D1  0
break

#IF
Equal  D1  83
#ACT
SET [083] 1
MOV D1  0
break

#IF
Equal  D1  84
#ACT
SET [084] 1
MOV D1  0
break

#IF
Equal  D1  85
#ACT
SET [085] 1
MOV D1  0
break

[@黹X()]
#ACT
MOV A0 %ARG(1)	;;Ʒ
MOV D0 %ARG(2)	;;
MOV D1 %ARG(3)	;;ñ

#IF
checkcmd CHECKUSERJF  %D0
#SAY
黹<$OUTPUT(D0)>֣\
ʹʯ\
<[   ]/@exit>
#ACT
SET [088] 0
actcmd SETUSERJF - %D0 黹
GOTO  @0
#ELSESAY
ϵĻֲ\


[@黹X()]
#ACT
MOV A0 %ARG(1)	;;Ʒ
MOV D0 %ARG(2)	;;
MOV D1 %ARG(3)	;;ñ

#IF
checkitem  ־  %D0
#SAY
黹<$OUTPUT(D0)>־\
ʹʯ\
<[   ]/@exit>
#ACT
SET [088] 0
TAKE ־  %D0
GOTO  @0
#ELSESAY
ϻ־\


[@0]
#IF
Equal  D1  81
#ACT
SET [081] 0
MOV D1  0
break

#IF
Equal  D1  82
#ACT
SET [082] 0
MOV D1  0
break

#IF
Equal  D1  83
#ACT
SET [083] 0
MOV D1  0
break

#IF
Equal  D1  84
#ACT
SET [084] 0
MOV D1  0
break

#IF
Equal  D1  85
#ACT
SET [085] 0
MOV D1  0
break
}
;;==========================================================